Міністерство освіти і науки України Національний технічний університет України “Київський політехнічний інститут” Кафедра ОТ ЗВІТ про виконання лабораторної роботи № 8 з дисципліни “Основи програмування та алгоритмічні мови” Тема: Множини  Постановка задачі Заданий рядок, що містить літери латинського алфавіту і цифри. Вивести голосні та цифри, підрахувати кількість елементів в кожній підмножині. Текст програми з коментарями uses crt; type mnogina=set of char; var s,s1:string; m:mnogina; procedure UP(var mn:mnogina); var i:byte; begin for i:=97 to 122 do if chr(i) in mn then mn:=mn+[chr(i)]; end; function kol(var s2:string; a:boolean):byte; var i,sum:byte; m1,m2:mnogina; begin m1:=[]; m2:=[]; s2:=''; if a then begin m1:=['a','e','y','u','i','o']; UP(m1); end else m1:=['0'..'9']; sum:=0; for i:=1 to length(s) do if s[i] in m1 then begin sum:=sum+1; m2:=m2+[s[i]]; end; for i:=1 to 255 do if chr(i) in m2 then s2:=s2+chr(i); kol:=sum; end; procedure vvod; var c:char; i:byte; b:boolean; begin s:=''; i:=0; writeln('vvedie stroky:'); repeat c:=readkey; if (c in m)and b then begin write(c); s:=s+c; inc(i); end; if c=#0 then b:=false else b:=true; until (c=#13)or(i=255); writeln; end; procedure vivod(stroka:string;b:boolean); begin write('v stroke '); textcolor(1); write(s); textcolor(0); write(' sodergitsya '); textcolor(1); write(kol(s1,b)); textcolor(0); writeln(stroka); textcolor(1); writeln(s1); textcolor(0); end; BEGIN textbackground(7); textcolor(0); clrscr; m:=['a'..'z','A'..'Z','0'..'9',' ','.',',','-','_']; WriteLn('Result of laboratory work 7'); WriteLn('variant 4'); WriteLn('Executed student of group IP-02 Bondur Vladislav'); vvod; vivod(' glasnix: ',True); vivod(' cifer: ',False); readln; END.Блок-схема алгоритму
Результат виконання програми у вигляді відеокопії екрана / Висновки Перевіримо, чи правильно працює моя програма: Введений рядок містить тільки літери латинського алфавіту та цифри, при спробі ввести інші символи програма на них ніяк не реагувала. Підрахувавши кількість голосних у введеному рядку, можна переконатися що їх кількість дорівнює 20, та при цьому зустрічаються усі без виключення стрічні голосні, та прописна літера «А». А також у рядку присутні 10 голосних: «12345» та «54321». Отже програма працює правильно.